﻿Namespace EyeOpen.Diagnostics
	Public Class ShellCommand
		Public Sub New(ByVal name As String, ByVal parameter As String)
			Me.New(name)
			Me.Parameter = parameter
		End Sub

		Public Sub New(ByVal name As String)
			Me.Name = name
		End Sub

		Private privateName As String
		Public Property Name() As String
			Get
				Return privateName
			End Get
			Private Set(ByVal value As String)
				privateName = value
			End Set
		End Property

		Private privateParameter As String
		Public Property Parameter() As String
			Get
				Return privateParameter
			End Get
			Private Set(ByVal value As String)
				privateParameter = value
			End Set
		End Property
	End Class
End Namespace